home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 43 / Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso / -serious- / graphics / fxforge / kang / color cubes < prev    next >
Text File  |  1999-06-15  |  690b  |  29 lines
  1. Category: kang
  2. Title: color Cubes
  3. Copyright: na
  4. Author: kangaroo@asan.com
  5. Filename: C-CUBES.8BF
  6.  
  7. R:put(((sin(x*ctl(0)*40/M)*cos(y*ctl(0)*40/M))*(sin(abs(X*val(2,20,60)/M)+abs(Y*val(2,20,60)/M))))/C/100,1),put(get(1)*255/22/255+val(1,-50,120),0),get(0)&256?355+ctl(4)-(get(0)&511):get(0)+c-60
  8.  
  9. G:put(get(1)*255/22/255+val(1,-50,120),0),get(0)&256?355+ctl(5)-(get(0)&511):get(0)+c-60
  10.  
  11. B:put(get(1)*255/22/255+val(1,-50,120),0),get(0)&256?355+ctl(6)-(get(0)&511):get(0)+c-60
  12.  
  13. A:a
  14.  
  15. ctl[0]: more cubes
  16. ctl[1]: melt cubes
  17. ctl[2]: contrast
  18. ctl[4]: red cubes
  19. ctl[5]: green cubes
  20. ctl[6]: blue cubes
  21.  
  22. val[0]: 48
  23. val[1]: 75
  24. val[2]: 139
  25. val[4]: 102
  26. val[5]: 224
  27. val[6]: 198
  28.  
  29.